home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_4028.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  10.5 KB  |  503 lines
  1. -- card: 4028 from stack: in.6
  2. -- bmap block id: 4157
  3. -- flags: 0000
  4. -- background id: 2598
  5. -- name: Config
  6. ----- HyperTalk script -----
  7. on setallb a
  8.   set hilite of button "Speed1200" to false
  9.   set hilite of button "Speed2400" to false
  10.   set hilite of button "Speed9600" to false
  11.   set hilite of button "Speed19200" to false
  12. end setallb
  13.  
  14.  
  15.  
  16. -- part 9 (field)
  17. -- low flags: 01
  18. -- high flags: 2004
  19. -- rect: left=99 top=25 right=51 bottom=361
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Otsikko SAVE
  28.  
  29.  
  30. -- part 2 (field)
  31. -- low flags: 00
  32. -- high flags: 2004
  33. -- rect: left=12 top=64 right=88 bottom=231
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 256
  40. -- line height: 16
  41. -- part name: DCA name
  42.  
  43.  
  44. -- part 3 (button)
  45. -- low flags: 00
  46. -- high flags: A003
  47. -- rect: left=453 top=304 right=340 bottom=498
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: OK
  56. ----- HyperTalk script -----
  57. on mouseup
  58.   hide card field "EM"
  59.   put 0 into a
  60.   put "noerror" into error
  61.   repeat until a = 1
  62.     put 1 into a
  63.     get first word of card field "DCA Name"
  64.     put it into card field "DCA Name"
  65.     put "L, V and U" into values
  66.     if it <> "l" and it <> "v" and it <> "u" then
  67.       put "DCA name" into error
  68.       exit repeat
  69.     end if
  70.  
  71.   end repeat
  72.  
  73.   if error = "noerror" then
  74.     -- gdfgdfg
  75.     go card "card0"
  76.   else
  77.     put "Error in field " & error & ", correct it." & return into card field "EM"
  78.     put "Value is '" & it after card field "EM"
  79.     put "', possible values are " & values after card field "EM"
  80.     show card field "EM"
  81.     -- sdfsfsdfs
  82.   end if
  83.  
  84. end mouseup
  85.  
  86.  
  87.  
  88. -- part 4 (field)
  89. -- low flags: 02
  90. -- high flags: 2004
  91. -- rect: left=12 top=96 right=121 bottom=232
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 256
  98. -- line height: 16
  99. -- part name: Username
  100.  
  101.  
  102. -- part 5 (field)
  103. -- low flags: 01
  104. -- high flags: 2004
  105. -- rect: left=13 top=129 right=153 bottom=232
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: node name
  114. ----- HyperTalk script -----
  115. on mouseup
  116.   answer "Valitse nimi taulukosta."
  117. end mouseup
  118.  
  119.  
  120.  
  121. -- part 6 (field)
  122. -- low flags: 83
  123. -- high flags: 2004
  124. -- rect: left=246 top=308 right=334 bottom=303
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Node Type
  133. ----- HyperTalk script -----
  134. on mouseup
  135.   answer "Valitse nimi taulukosta."
  136. end mouseup
  137.  
  138.  
  139.  
  140. -- part 7 (field)
  141. -- low flags: 80
  142. -- high flags: 2000
  143. -- rect: left=11 top=233 right=291 bottom=343
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 3
  148. -- text size: 12
  149. -- style flags: 256
  150. -- line height: 16
  151. -- part name: EM
  152.  
  153.  
  154. -- part 8 (field)
  155. -- low flags: 00
  156. -- high flags: 2004
  157. -- rect: left=243 top=64 right=155 bottom=497
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 0
  161. -- font id: 3
  162. -- text size: 9
  163. -- style flags: 256
  164. -- line height: 12
  165. -- part name: 
  166.  
  167.  
  168. -- part 10 (field)
  169. -- low flags: 01
  170. -- high flags: 2007
  171. -- rect: left=14 top=209 right=307 bottom=126
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 9
  177. -- style flags: 0
  178. -- line height: 12
  179. -- part name: Node Names
  180. ----- HyperTalk script -----
  181.  
  182. on mouseup
  183.   get clickLine()
  184.   put it into LineOfName
  185.   put line it of me into NodeName
  186.   -- next lines only for effect
  187.   if NodeName is not empty then
  188.     -- select the whole line to show choice
  189.     get offset(return & NodeName & return,me) + 1
  190.     select char it to length(NodeName) + it of me
  191.     get the hilite of card button "Talk Target" of card "Config"
  192.     if it is true
  193.     then talk "You selected node name" && NodeName,100,100
  194.     -- wait 15
  195.     -- set cursor to watch
  196.     -- visual barn door open
  197.     -- get char 1 to 29 of NodeName
  198.     get NodeName
  199.     put it into card field "Node Name"
  200.     get line LineOfName of card field "Node Types"
  201.     put it into card field "Node Type"
  202.   else
  203.     exit mouseup
  204.   end if
  205. end mouseup
  206.  
  207.  
  208.  
  209. -- part 11 (field)
  210. -- low flags: 01
  211. -- high flags: 2007
  212. -- rect: left=126 top=205 right=306 bottom=242
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 0
  216. -- font id: 3
  217. -- text size: 9
  218. -- style flags: 0
  219. -- line height: 12
  220. -- part name: Node Types
  221.  
  222.  
  223. -- part 12 (field)
  224. -- low flags: 01
  225. -- high flags: 2004
  226. -- rect: left=244 top=208 right=249 bottom=497
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 0
  230. -- font id: 3
  231. -- text size: 9
  232. -- style flags: 256
  233. -- line height: 12
  234. -- part name: 
  235.  
  236.  
  237. -- part 15 (field)
  238. -- low flags: 01
  239. -- high flags: 2004
  240. -- rect: left=243 top=160 right=201 bottom=497
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 0
  244. -- font id: 3
  245. -- text size: 9
  246. -- style flags: 256
  247. -- line height: 12
  248. -- part name: 
  249.  
  250.  
  251. -- part 19 (field)
  252. -- low flags: 01
  253. -- high flags: 0004
  254. -- rect: left=13 top=159 right=202 bottom=231
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 0
  258. -- font id: 3
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: 
  263.  
  264.  
  265. -- part 13 (button)
  266. -- low flags: 00
  267. -- high flags: A005
  268. -- rect: left=17 top=158 right=180 bottom=119
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: Speed1200
  277. ----- HyperTalk script -----
  278. on mouseup
  279.   setallb false
  280.   set hilite of  me to true
  281. end mouseup
  282.  
  283.  
  284. -- part 18 (button)
  285. -- low flags: 00
  286. -- high flags: E005
  287. -- rect: left=123 top=180 right=202 bottom=225
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: Speed19200
  296. ----- HyperTalk script -----
  297. on mouseup
  298.   setallb false
  299.   set hilite of  me to true
  300. end mouseup
  301.  
  302.  
  303. -- part 16 (button)
  304. -- low flags: 00
  305. -- high flags: A005
  306. -- rect: left=123 top=159 right=181 bottom=225
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: Speed2400
  315. ----- HyperTalk script -----
  316. on mouseup
  317.   setallb false
  318.   set hilite of  me to true
  319. end mouseup
  320.  
  321.  
  322. -- part 17 (button)
  323. -- low flags: 00
  324. -- high flags: A005
  325. -- rect: left=17 top=179 right=201 bottom=119
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: Speed9600
  334. ----- HyperTalk script -----
  335. on mouseup
  336.   setallb false
  337.   set hilite of  me to true
  338. end mouseup
  339.  
  340.  
  341. -- part 20 (button)
  342. -- low flags: 00
  343. -- high flags: A005
  344. -- rect: left=246 top=258 right=280 bottom=346
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Talk Target
  353.  
  354.  
  355. -- part 22 (field)
  356. -- low flags: 01
  357. -- high flags: 2007
  358. -- rect: left=427 top=251 right=302 bottom=496
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 0
  362. -- font id: 3
  363. -- text size: 9
  364. -- style flags: 0
  365. -- line height: 12
  366. -- part name: 
  367.  
  368.  
  369. -- part 25 (field)
  370. -- low flags: 00
  371. -- high flags: 0004
  372. -- rect: left=139 top=312 right=332 bottom=321
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 3
  377. -- text size: 12
  378. -- style flags: 256
  379. -- line height: 16
  380. -- part name: Terminal Emulator
  381.  
  382.  
  383. -- part 27 (button)
  384. -- low flags: 00
  385. -- high flags: A004
  386. -- rect: left=244 top=282 right=305 bottom=416
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 1
  390. -- font id: 0
  391. -- text size: 12
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: Lisèè Uusi Solmunimi
  395. ----- HyperTalk script -----
  396. on mouseUp
  397.   ask "Give new nodename"
  398.   put it into NodeName
  399.   repeat until it is "unix" or it is "vms"
  400.     ask "Give nodetype" with "unix"
  401.   end repeat
  402.  
  403.   put it into NodeType
  404.   put return & Nodename after card field "Node Names"
  405.   put return & NodeType after card field "Node types"
  406. end mouseUp
  407.  
  408.  
  409.  
  410. -- part 28 (field)
  411. -- low flags: 00
  412. -- high flags: 0004
  413. -- rect: left=320 top=312 right=332 bottom=422
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 1
  417. -- font id: 0
  418. -- text size: 12
  419. -- style flags: 0
  420. -- line height: 16
  421. -- part name: TTY
  422.  
  423.  
  424. -- part contents for card part 5
  425. ----- text -----
  426. tukki
  427.  
  428. -- part contents for card part 6
  429. ----- text -----
  430. unix
  431.  
  432. -- part contents for card part 7
  433. ----- text -----
  434. Error in field DCA name, correct it.
  435. Value is 'lh', possible values are L, V and U
  436.  
  437. -- part contents for card part 8
  438. ----- text -----
  439. DCA nimi       (l, v tai u, jos tarpeen)
  440.  
  441. Username     (k├ñytt├ñj├ñtunnuksesi, unix-
  442.       koneessa kokonaan pienin kirjaimin)
  443.  
  444. Tietokone     (Nodename, valitse taulukosta)
  445.  
  446. -- part contents for card part 9
  447. ----- text -----
  448. Kirjoita kenttiin oikeat tekstit
  449.  
  450. -- part contents for card part 10
  451. ----- text -----
  452.  
  453. jylk
  454. tukki
  455. jytko
  456. tarzan
  457. jyfl
  458. santra
  459. opmvax.csc.fi
  460. santra.hut.fi
  461. jytkoson1
  462.  
  463. -- part contents for card part 11
  464. ----- text -----
  465.  
  466. vms
  467. unix
  468. unix
  469. unix
  470. vms
  471. unix
  472. vms
  473. unix
  474. unix
  475.  
  476. -- part contents for card part 12
  477. ----- text -----
  478. Valitse osoittamalla viereisest├ñ taulukosta koneen nimi.
  479.  
  480. -- part contents for card part 15
  481. ----- text -----
  482. Ruksaa oikea nopeus viereisiin laatikoihin
  483. 1200, 2400, 9600 tai 19200.
  484.  
  485. -- part contents for card part 4
  486. ----- text -----
  487. kallio
  488.  
  489. -- part contents for card part 22
  490. ----- text -----
  491. T├ñm├ñn  asetus saa pinon puhumaan. Painamalla Command tai alt, pino puhuu kenttien ja painon├ñpp├ñinten nimet, kun kursoria liikuttelee niiden yli. Muuten se sanoo vain ne painikkeet,joita on painettu.  Edellytt├ñ├ñ, ett├ñ Sinulla on Macintalk -ohjelma systeemikansiossa.
  492.  
  493. -- part contents for card part 25
  494. ----- text -----
  495. Zterm 0.8f
  496.  
  497. -- part contents for card part 2
  498. ----- text -----
  499. L
  500.  
  501. -- part contents for card part 28
  502. ----- text -----
  503. VT100